From 8c9d4404281a05d6e33f53cf90faf01665711942 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 14 Jun 2002 05:48:51 +0000 Subject: [PATCH] (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index b565d8ef7c9..648ff0de3e3 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -204,7 +204,7 @@ argument VECP, this copies vectors as well as conses." (setq newcar (copy-tree (car tree) vecp))) (push newcar result)) (setq tree (cdr tree))) - (nreconc result tree)) + (nconc (nreverse result) tree)) (if (and vecp (vectorp tree)) (let ((i (length (setq tree (copy-sequence tree))))) (while (>= (setq i (1- i)) 0) -- 2.30.2